First of all I'd want to say  that I did not look to your macros (I'm sorry
but hand editing meshes is not my strong point). That said, I think that
this could be some floating point approximation problem. Maybe I'm
completely wrong (in that case forgive me, please) but I think that with a
mesh2 object you could avoid this problem (two coincident vertexes are not
reapeted, are they?).

--
Jonathan.

"Jan Walzer" <jan### [at] lzernet> ha scritto nel messaggio
news:3bf558a9$1@news.povray.org...
> I'm trying, to play a bit with meshes ...
> I build a sphere with a rekursive tesselation ...
> so far a OK
>
> Next step was to add some noise to the surface...
> I decided to add the value of the bozo ...
> but now, the triangles no longer fit together ...
>
> Where did I mix up the wrong variables ?
> Image is going to p.b.i.
>
>
> file://---------------------------------------------------------
> #declare Fn_p=function {
>     pattern {
>         bozo
>         scale 0.1
>         }
>     }
>
> #declare Fn=function {
>     (Fn_p(x,y,z)-0.5)*0.05
>     }
>
> #macro Recursion(p1,p2,p3,c,d)
>     #local pp1=vnormalize(p1-c)+c+Fn(p1.x,p1.y,p1.z)*p1;
>     #local pp2=vnormalize(p2-c)+c+Fn(p2.x,p2.y,p2.z)*p2;
>     #local pp3=vnormalize(p3-c)+c+Fn(p3.x,p3.y,p3.z)*p2;
>     #if (d>0)
>         Recursion(pp1,(pp1+pp2)/2,(pp1+pp3)/2,c,d-1)
>         Recursion((pp2+pp3)/2,(pp1+pp2)/2,pp2,c,d-1)
>         Recursion((pp2+pp3)/2,pp3,(pp1+pp3)/2,c,d-1)
>         Recursion((pp2+pp3)/2,(pp1+pp3)/2,(pp1+pp2)/2,c,d-1)
>
>     #else
>         triangle {pp1,pp2,pp3}
>     #end
> #end
>
>
> #macro RecurseObj(c,d)
>     mesh
>
>     Recursion (c+x,c+y,c-z,c,d)
>     Recursion (c+x,c-y,c-z,c,d)
>     Recursion (c-x,c+y,c-z,c,d)
>     Recursion (c-x,c-y,c-z,c,d)
> //    Recursion (c+x,c+y,c+z,c,d)
> //    Recursion (c+x,c-y,c+z,c,d)
> //    Recursion (c-x,c+y,c+z,c,d)
> //    Recursion (c-x,c-y,c+z,c,d)
>     }
> #end
>
>
>
> // ----------------------------------------
>
> camera {
>   location  <0.0, 0.5, -4.0>
>   direction 1.5*z
>   right     x*image_width/image_height
>   look_at   <0.0, 0.0,  0.0>
> }
>
> light_source {
>   <0, 0, 0>            // light's position (translated below)
>   color rgb <1, 1, 1>  // light's color
>   translate <-30, 30, -30>
> }
>
> // ----------------------------------------
>
> plane {
>   y, -1
>   pigment { color rgb <0.7,0.5,0.3> }
> }
>
> object {
>     RecurseObj(0.1,6)   // recursiondepth ans Center of sphere...
>     pigment {color rgbt <1,1,1,0.0>}
>     }
>
> --
> Jan Walzer <jan### [at] lzernet>
>
>

Post a reply to this message